program asciitable;
var
	i, j, a: byte;
begin
	writeln('       --- ASCII TABLE ---');
	writeln('  0 1 2 3 4 5 6 7 8 9 A B C D E F');
	for i := $0 to $7 do begin
		write(hexstr(i, 1), ' ');
		for j := $0 to $F do begin
			a := i * $10 + j;
			if (a < 32) or (a >= 127) then write('.') else write(chr(a));
            write(' ');
		end;
		writeln;
	end;
end.